home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / lib / skey_sgi.pro < prev    next >
Encoding:
Text File  |  1997-07-08  |  1.9 KB  |  63 lines
  1. ; $Id: skey_sgi.pro,v 1.3 1997/01/15 03:11:50 ali Exp $
  2. ;
  3. ; Copyright (c) 1989-1997, Research Systems, Inc.  All rights reserved.
  4. ;       Unauthorized reproduction prohibited.
  5.  
  6. PRO skey_sgi
  7. ;+
  8. ; NAME:        SKEY_SGI
  9. ; PURPOSE:    Under Unix, the number of function keys, their names, and the
  10. ;        escape sequences they send to the host computer vary
  11. ;        enough between various keyboards that IDL cannot be
  12. ;        written to understand all keyboards. Therefore, it provides
  13. ;        a very general routine named DEFINE_KEY that allows the
  14. ;        user to specify the names and escape sequences. This
  15. ;        routine uses DEFINE_KEY to enter the keys for a Sun keyboard.
  16. ;
  17. ;        Note: SKEY_SGI is primarily designed to be called by
  18. ;        SETUP_KEYS, which attempts to automatically detect the correct
  19. ;        keyboard type in use, and define the keys accordingly.
  20. ;        Nonetheless, SKEY_SGI may be called as a standalone
  21. ;        routine.
  22. ;
  23. ; CATEGORY:    Misc.
  24. ; CALLING SEQUENCE:
  25. ;    SKEY_SGI
  26. ; INPUTS:
  27. ;    None.
  28. ; KEYWORD PARAMETERS:
  29. ;    None.
  30. ; OUTPUTS:
  31. ;    None.
  32. ; COMMON BLOCKS:
  33. ;    None.
  34. ; SIDE EFFECTS:
  35.  
  36. ;    The definitions for the function keys have been entered, and
  37. ;    can be viewed using HELP,/KEYS .
  38. ; MODIFICATION HISTORY:
  39. ;    AB, 26 April 1989
  40. ;    TJA, July 1990, setup_keys_sun created by the "breakup" of setup_keys
  41. ;        into separate files.
  42. ;    SMR, April 1991, setup_keys_sgi created by modifying setup_keys_sun
  43. ;    AB, 21 September 1992,renamed from SETUP_KEYS_SGI to SKEY_SGI to
  44. ;        avoid DOS filename limitations.
  45. ;    AB, 16 June 1993, The IDL scanner used to treat octal string escapes
  46. ;        in a manner similar to the C language, but this ability was
  47. ;        removed to make the MS DOS port possible (conflicts with
  48. ;        file path specifications). Removed all uses of that here.
  49. ;-
  50.  
  51. ; F1-F12
  52. FOR i = 1,12 DO $
  53.   IF (i NE 4) THEN $                ;function 4 is used for paste
  54.     define_key, 'F' + STRTRIM(i,2), $        ;from the SGI scratch buffer
  55.     ESCAPE = string(27B) + '[' + $
  56.          STRING(STRTRIM(i,2), format = '(I3.3)') + 'q'
  57.  
  58. END    ; Sgi keyboard
  59.  
  60.  
  61.  
  62.  
  63.